home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aae.d64 / canadian flag (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  76 lines
  1. 1 REM 16196 RICK MOORE
  2. 100 V=53248:FORSN=0TO7:GOSUB2100:NEXT
  3. 110 PRINT"[147]":POKE53281,14:POKE53280,PEEK(53281)
  4. 120 TD=1:POKEV+23,0:POKEV+29,0
  5. 130 POKE2042,13:POKEV+41,2
  6. 140 FORX=0TO62:READQ:POKE832+X,Q:NEXT
  7. 200 PRINT""
  8. 210 PRINT"     [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  9. 220 PRINT""
  10. 230 FORX=1TO11
  11. 240 PRINT"                                   [146]"
  12. 245 FORT=1TOTD*100:NEXT
  13. 250 NEXTX
  14. 260 PRINT"     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  15. 300 POKEV+5,70:SN=2:GOSUB2000
  16. 310 FORX=1TO255
  17. 320 POKEV+4,X
  18. 330 FORT=1TOTD:NEXT
  19. 340 NEXTX
  20. 341 POKEV+16,4
  21. 342 FOR X=1TO55
  22. 343 POKEV+4,X
  23. 344 FOR T=1TOTD:NEXT
  24. 345 NEXTX
  25. 350 FORX=70TO210
  26. 360 POKEV+5,X
  27. 370 FORT=1TOTD:NEXT
  28. 380 NEXTX
  29. 390 FORX=55TO0STEP-1
  30. 400 POKEV+4,X
  31. 405 FORT=1TOTD:NEXT
  32. 410 NEXTX
  33. 415 POKEV+16,0
  34. 420 FORX=255TO30STEP-1
  35. 425 FORT=1TOTD:NEXT
  36. 430 POKEV+4,X
  37. 435 NEXTX
  38. 440 FORX=210TO70STEP-1
  39. 445 POKEV+5,X
  40. 450 FORT=1TOTD:NEXT
  41. 455 NEXTX
  42. 460 FORX=30TO172
  43. 465 POKEV+4,X
  44. 470 FORT=1TOTD:NEXT
  45. 475 NEXTX
  46. 480 FORX=70TO142
  47. 485 POKEV+5,X
  48. 490 FORT=1TOTD:NEXT
  49. 495 NEXTX
  50. 500 FORT=1TO500*TD:NEXT
  51. 510 POKEV+4,160:POKEV+5,129
  52. 520 POKEV+23,4:POKEV+29,4
  53. 530 FORT=1TO125:NEXT
  54. 540 POKEV+4,172:POKEV+5,142
  55. 550 POKEV+23,0:POKEV+29,0
  56. 555 FORT=1TO125:NEXT
  57. 570 POKEV+4,160:POKEV+5,129
  58. 580 POKEV+23,4:POKEV+29,4
  59. 999 END
  60. 1000 DATA0,24,0,0,60,0,0,126,0,0,255,0
  61. 1010 DATA1,255,128,255,255,255,127,255,254
  62. 1020 DATA63,255,252,31,255,248,15,255,240
  63. 1030 DATA7,255,224,15,255,240,31,255,248
  64. 1040 DATA63,255,252,127,255,254,255,255,255
  65. 1050 DATA0,24,0,0,24,0,0,24,0,0,24,0,0,24,0
  66. 2000 REM-------------------------------
  67. 2001 REM          TURN ON SPRITE SN
  68. 2002 REM-------------------------------
  69. 2005 POKEV+21,PEEK(V+21)OR(2^SN)
  70. 2010 RETURN
  71. 2100 REM-------------------------------
  72. 2101 REM          TURN OFF SPRITE SN
  73. 2102 REM-------------------------------
  74. 2105 POKEV+21,PEEK(V+21)AND(255-2^SN)
  75. 2110 RETURN
  76.